(update-copyright): Handle two-digit years with apostrophes.

diff --git a/lisp/emacs-lisp/copyright.el b/lisp/emacs-lisp/copyright.el
index 86056f0856a907ab1d356e11e267fa3c0e01a64c..a39df35d00935260cfa0d9190a62052611537fbd 100644 (file)
--- a/lisp/emacs-lisp/copyright.el
+++ b/lisp/emacs-lisp/copyright.el
@@ -56,9 +56,11 @@ than adding to it."
     (save-restriction
       (widen)
       (goto-char (point-min))
-      ;; Handle abbreviated year lists like "1800, 01, 02, 03".
-      (if (re-search-forward (concat (substring current-year 0 2)
-                                    "\\([0-9][0-9]\\(,\\s \\)+\\)*"
+      ;; Handle abbreviated year lists like "1800, 01, 02, 03"
+      ;; or "1900, '01, '02, '03".
+      (if (re-search-forward (concat "\\(" (substring current-year 0 2)
+                                    "\\)?"
+                                    "\\([0-9][0-9]\\(,\\s \\)+\\)*'?"
                                     (substring current-year 2))
                             nil t)
          (or ask-upd